home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / gfx / board / rtgmasdev.lha / install_rtgmaster < prev    next >
Text File  |  1997-04-02  |  7KB  |  165 lines
  1. (set #UpDateNo    "Do not update")
  2. (set #UpDateIfNew "Update, if newer")
  3. (set #AlwaysUpDate  "Update Always.")
  4. (set #installwhat "What do you install of the Following?")
  5. (set #guidedocs "AmigaGuide File")
  6. (set #WhereToPut "Select where to put the files.\n(A directory called \"RTGMaster_Dev\" will be created at that place!)")
  7. (set #ctp "Install the rtgmaster c2p package ?")
  8. (set #install "RtgMaster c2p Package")
  9. (set #Demos "RtgMaster Demos")
  10. (set #RtgDevel "RtgMaster Developper Docs")
  11. (set #RtgIncludes "RtgMaster Includes")
  12. (set #RtgGoodies "RtgMaster Goodies")
  13. (set #Nope "No")
  14. (set #Yeah "Yes")
  15. (set app-name "Rtgmaster")
  16. (if(<(/(getversion)65536)36)
  17. (abort "Rtgmaster needs at least OS2.0\n"))
  18. (complete 0)
  19. (if(not(exists("libs:rtg")))
  20. (makedir("libs:rtg")(infos)))
  21. (if(not(exists("libs:rtgc2p")))
  22. (makedir("libs:rtgc2p")(infos)))
  23. (if(askchoice(choices #Nope #Yeah)
  24. (prompt("Do you want to delete any old versions of rtgmaster? \nThis is recommended, if old versions did not run on your system.\n"))
  25. (help "")(default 1))
  26. ((delete "libs:rtg/#?")
  27. (delete "libs:rtgmaster.library")
  28. (delete "libs:rtgc2p/c2p-garbage/#?")
  29. (delete "libs:rtgc2p/strange_c2p/#?")
  30. (delete "libs:rtgc2p/#?")
  31. (delete "envarc:rtgmaster/#?")
  32. (delete "env:rtgmaster/#?")
  33. (delete "libs:rtggadtools.library")))
  34. (set rtg1 (/(getversion "libs:rtgmaster.library")65536))
  35. (set rtg2 (-(getversion "libs:rtgmaster.library")(* rtg1 65536)))
  36. (set rtg3 (/(getversion "libs/rtgmaster.library")65536))
  37. (set rtg4 (-(getversion "libs/rtgmaster.library")(* rtg3 65536)))
  38. (set upd (askchoice
  39. (choices #UpDateNo #UpDateIfNew #AlwaysUpDate)
  40. (help "rtgmaster.library is the main-library of rtgmaster. You HAVE TO install it. ")
  41. (default 1)
  42. (prompt("Currently installed rtgmaster.library :\nVersion : %ld.%ld\n\nVersion from Update : %ld.%ld\n\nInstall Version %ld.%ld of 'rtgmaster.library' from Update ?\n" rtg1 rtg2 rtg3 rtg4 rtg3 rtg4))))
  43. (if(= upd 1)(copylib (source "libs/rtgmaster.library")(dest "libs:")))
  44. (if(= upd 2)(copyfiles
  45. (prompt("Copying now 'rtgmaster.library' to Libs:"))
  46. (source"libs/rtgmaster.library")
  47. (dest"libs:")(confirm)(infos)(help "")))
  48. (set rtg1(/(getversion "libs:rtggadtools.library")65536))
  49. (set rtg2(-(getversion "libs:rtggadtools.library")(* rtg1 65536) ))
  50. (set rtg3(/(getversion "libs/rtggadtools.library")65536))
  51. (set rtg4(-(getversion "libs/rtggadtools.library")(* rtg3 65536) ) )
  52. (set upd(askchoice
  53. (choices #UpDateNo #UpDateIfNew #AlwaysUpDate)
  54. (prompt("Currently installed rtggadtools.library :\nVersion : %ld.%ld\n\nVersion from Update : %ld.%ld\n\nInstall Version %ld.%ld of 'rtgmaster.library' from Update ?\n" rtg1 rtg2 rtg3 rtg4 rtg3 rtg4))
  55. (help "rtggadtools.library is a rtgmaster-add-on by Hans-Joerg Frieden.")
  56. (default 1)))
  57. (if(= upd 1)
  58. (copylib (source "libs/rtggadtools.library")(dest "libs:")))
  59. (if(= upd 2)
  60. (copyfiles
  61. (prompt "Copying now 'rtggadtools.library' to Libs:")
  62. (source "libs/rtggadtools.library")
  63. (dest "libs:")(confirm)(infos)(help "")))
  64. (complete 20)
  65. (set upd (askchoice
  66. (choices #Nope #Yeah)
  67. (prompt("Sublibraries :\nDo you wish to install the needed Sublibraries ?\nThis is recommended, because rtgmaster won't work without them.\n"))
  68. (help "In order to work rtgmaster needs the sublibraries.")
  69. (default 1)))
  70. (set rtg1(/(getversion "libs:cgxsystem.library")65536))
  71. (if(= upd 1)
  72. ((if(> rtg1 0)
  73. (copyfiles
  74. (prompt "Copying now 'rtgCGX.library' to Libs:rtg")
  75. (source "libs/rtg/rtgCGX.library")(dest "libs:rtg")
  76. (confirm)(infos)(help "")(set upd 2)))))
  77. (set rtg1(/(getversion "libs:egs.library")65536))
  78. (if(= upd 1)
  79. ((if(> rtg1 0)
  80. (copyfiles
  81. (prompt "Copying now 'rtgEGS.library' to Libs:rtg")
  82. (source "libs/rtg/rtgEGS.library")(dest "libs:rtg")
  83. (confirm)(infos)(help "")))))
  84. (set rtg1(/(getversion "libs:cybergraphics.library")65536))
  85. (if(= upd 1)
  86. ((if(> rtg1 0)(copyfiles
  87. (prompt "Copying now 'rtgCGX.library' to Libs:rtg")
  88. (source "libs/rtg/rtgCGX.library")(dest "libs:rtg:")
  89. (confirm)(help "")(infos)(set upd 2)))))
  90. (set rtg1(/(getversion "libs:Picasso96API.library")65536))
  91. (if(= upd 1)
  92. ((if(> rtg1 0)(copyfiles
  93. (prompt "Copying now 'rtgCGX.library' to Libs:Rtg")
  94. (source "libs/rtg/rtgCGX.library")(dest "libs:rtg")
  95. (help "")(confirm)(infos)(set upd 2)))))
  96. (set rtg1(/(getversion "libs:hrgsystem.library")65536))
  97. (if(= upd 1)
  98. ((if(> rtg1 0)
  99. (copyfiles
  100. (prompt "Copying 'libs:rtg/rtgCGX.library' to Libs:Rtg")(help "")
  101. (source "libs/rtg/rtgCGX.library")(dest "libs:rtg")
  102. (confirm)(infos)(set upd 2)))))
  103. (set ver1(/(getversion "libs:vilintuisup.library")65536))
  104. (if(= upd 1)
  105. ((if(> rtg1 0)
  106. (copyfiles
  107. (help "")(prompt "Copying now 'libs:rtg/rtgPICA.library' to Libs:Rtg")
  108. (source "libs/rtg/rtgPICA.library")(dest "libs:rtg")
  109. (confirm)(infos)))))
  110. (if(= upd 1)
  111. ((copyfiles (help "")
  112. (prompt "Copying now 'libs:rtg/rtgAMI.library' to Libs:rtg")
  113. (source "libs/rtg/rtgAMI.library")(dest "libs:rtg")
  114. (confirm)(infos))))
  115. (if(= upd 2)
  116. ((copyfiles
  117. (prompt "Copying npw 'libs:rtg/rtgAMI.library' to Libs:rtg")
  118. (source "libs/rtg/rtgAMI.library")(dest "libs:rtg")
  119. (help "")(confirm)(infos))))
  120. (complete 50)
  121. (set Additional(askoptions(choices #guidedocs #demos #RtgDevel #RtgIncludes #RtgGoodies)
  122. (help "")(prompt #installwhat)(default 63)))
  123. (if(<> Additional 0)
  124. ((set RtgMaster(askdir(prompt #WhereToPut)
  125. (help   #WhereToPut)
  126. (default "Sys:")))
  127. (if(< (exists(tackon RtgMaster "RtgMaster_Dev")) 2)
  128. (makedir(tackon RtgMaster "RtgMaster_Dev")(infos)))
  129. (set whereput(tackon RtgMaster "RtgMaster_Dev"))
  130. (set @default-dest RtgMaster)
  131. (if (IN Additional 0)
  132. (((copyfiles(source "rtgmaster_dev.guide")(dest whereput)(infos)(help "")(newname "rtgmaster_dev.guide")))))
  133. (complete 60)
  134. (if(IN Additional 1)
  135. ((if(< (exists(tackon whereput "Demos"))2)
  136. (makedir(tackon whereput "Demos")(infos)))
  137. (copyfiles(source "demos")(help "")(dest(tackon whereput "demos"))(all))))
  138. (if(IN Additional 1)
  139. ((if(< (exists(tackon whereput "DevDocs"))2)
  140. (makedir(tackon whereput "DevDocs")(infos)))
  141. (copyfiles(source "DevDocs")(help "")(dest(tackon whereput "DevDocs"))(all))))
  142. (if(IN Additional 1)
  143. ((if(< (exists(tackon whereput "Includes"))2)
  144. (makedir(tackon whereput "Includes")(infos)))
  145. (copyfiles(source "Includes")(help "")(dest(tackon whereput "Includes"))(all))))
  146. (if(IN Additional 1)
  147. ((if(< (exists(tackon whereput "Goodies"))2)
  148. (makedir(tackon whereput "Goodies")(infos)))
  149. (copyfiles(source "Goodies")(help "")(dest(tackon whereput "Goodies"))(all))))
  150. (complete 80)
  151. (set RtgMaster whereput)
  152. (set c2p(askoptions(choices #install)(prompt "\nThe c2p algorithms are needed for ECS/AGA\nDo you wish to install them ?\n")
  153. (help #install)(default 1)))
  154. (if(IN c2p 0)((copyfiles(source "libs/rtgc2p")(help"")(dest("libs:rtgc2p"))(all))))))
  155. (complete 100)
  156. (exit "You should reboot now. "
  157.       "Check your devs:monitors directory, if you have "
  158.       "installed a monitor driver there. GFX Board users "
  159.       "always have something installed there, ECS/AGA "
  160.       "users not always. If you are a ECS/AGA user "
  161.       "and do not have something installed there, "
  162.       "please copy PAL or NTSC from sys:Storage to "
  163.       "devs:monitors. ")
  164.  
  165.